I can't get my program to print anything to a file. It was complaining about line earlier. Is this correct? if ($string1 =~ /\*\s*\$string2|\$string2/)