#!/usr/bin/perl -w
print 0+"0 but true",$/;
print 0+"0\0",$/;
__END__
Argument "0" isn't numeric in addition (+) at - line 3
0
0