sidhekin@blackbox[07:05:22]~$ 562perl -MTest::More=tests,1 -le 'like("print() on closed filehandle STDOUT at t/03-files.pl line 131.\n", qr/(?-xism:\A(?-xism:^print\(\)\ on\ closed\ filehandle\ STDOUT\ at\ )[^\0]*\z)/)'
1..1
ok 1
sidhekin@blackbox[19:38:28]~$