if ( $mystring=~/^Mac\w/ )
{ 

print "\"",$mystring ,"\",\n";

};