0123456789012345678901234 perl -le 'print`echo foo`=~/(.*)\n/' __output__ foo