#!usr/bin/perl

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

 # This program tests regular expressions against a match.

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

	print "Matched: "  . "\"" .  $&  . "\"" . "\n";       # print match
	print "Before match: "  . "\"" .  $`  . "\"" .  "\n"; # print data before match
	print "After match: " . "\"" . $' . "\"" . "\n";      # print data after match

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