#!/usr/bin/perl -w

$string = "The food is in the salad bar";
$a=<STDIN>;
$string =~ m/($a)/;
print "Before: $`\n";
print "Matched: $&\n";
print "After: $'\n";