#!/usr/bin/perl
$str = "The apparition of these faces in the crowd. Petals on a wet black
bough.\n";
$str =~ s/(.*)(faces)\s(.*)\scrowd.*([Pp]etals)\s(on).* (bough)\./Metro\4/;
print $str;


