#!/usr/bin/perl use CGI; print "Content-type: text/plain\n\n"; print "Your phone number seems to be:"; print "$ENV{'QUERY_STRING'}\n"; print "and without the url formatting it is: $JUSTNUM"; $ENV{'QUERY_STRING'} =~ s/phonenum=//; print $ENV{'QUERY_STRING'};