#!/usr/local/bin/perl

##
# Get the values the user supplied via STDIN
##
$Instructor = <>; chop ($Instructor); 
$Phone = <>; chop ($Phone);
$Email = <>; chop ($Email);

##
# Security precautions
##
$Instructor =~ s/[^A-Za-z0-9. ]//g;
$Phone =~ s/[^A-Za-z0-9.()\- ]//g;
$Email =~ s/[^A-Za-z0-9.@ ]//g;

print "\r\n";
print "TextBook Information Request\r\n";
print "\r\n";
print "\r\n";
print "\r\n";
print "Instructor:\t\t$Instructor\r\n";
print "Phone No:\t\t$Phone\r\n";
print "E-Mail Address:\t\t$Email\r\n";
print "\r\n";
