Re^2: Perl losing, unfairly

[BUU]

print shift,$/;