#!/usr/bin/perl -w

#retest.pl
# my feeble attempt to a multi-line RE in Perl

$regexp = shift;
while (<>) {
    print if /$regexp/;
}