chh@scallop chh> perl -le '$a="foo\nbar"; print $1 if $a =~ "\n(.*)"'
bar
chh@scallop chh>