$_ = "abcdmefg";
$_ = /m/;
print "$&\t$`\t$'\n";