{
$String=~/a/i;
print "Match: ",$&||"none"," Pre: ",$`||"none"," Post: ",$'||"none","\n";
}