$ perl -le'print for map /^foo(.*)/, @ARGV' foobar foobaz dodo
bar
baz