#!usr/bin/perl

$my_string = "";
$my_regx = "";

 # This program tests regular expressions against a match.

 if ($my_string =~ /$my_regx/x) 

	print qq{Matched: "$&"\n};      # print match
	print qq~Before match: "$`"\n~; # print data before match
	print qq|After match: "$'"\n|;  # print data after match 

 } else {
	# do nothing
 } # end if
	
  print "Rockstar Programming Inc. All Rights Reserved\n";