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