Professor Lester's Maison

#!c:\perl\bin\perl.exe -w
require 'forms.lib';
&get_form_data;
$phone = $formdata{'phone'};
$ssn = $formdata{'ssn'};
print "Content-type:text/html\n\n";
print "<html>

<head><title>Sample3.cgi</title></head>";
print "<body><script>
  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

ga('create', 'UA-47423994-1', 'fortunecity.ws');
  ga('send', 'pageview');

</script>
<center>
<br>
	
	<div>	
<script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
	</div>
</center>
<H1>Is the input from the form in a valid form?</H1>";
print "<table><tr><th>Key:<th>Entered Data:<th>Valid:";
print "<tr><td>phone<td>$phone";
if ($phone =~ /($?\d{3}$?)? ?\d{3}(\-|( )?)\d{4}/) { print "<td>Yes" }
else {print "<td>No" }
print "<tr><td>ssn<td>$ssn";
if ($ssn =~ /\d{3}\-?\d{2}\-?\d{4}/) {print "<td>Yes" }
else { print "<td>No" }
print 
</body>

<center>

</center>
</html>";