perl -e "$q = qq(the brown dog\n is hailing a cab); if (($q=~m/\n(.*)/mg) && ($1 eq q( is hailing a cab))) { print qq(\n$1;)} else {print 'no luck buddy.';}"