> perl -wle '
q(foo) =~ m/.*/;
eval <>;'
    print $&; q(snarf) =~ m/.*/ ; eval <>;

    #prints 'foo', not 'snarf' and waits for input;