perl -e '"01234" =~ /^(.+)(.+)(.+)$(?{ print "$1 $2 $3\n" })(*FAIL)/'