if ($temp =~ /#/){ $temp =~ s/#$'//; }