Select Code to Download

#!/usr/bin/perl

...
is $line, 'Her house is on 34th Mt. Whitney St. near <span class="high
+light">Mount St. </span>Helens St.', 'pattern substitution';
done_testing;