Select Code to Download

#!/usr/bin/perl --
use strict;
next unless s->{ID} =~ /\d\d+/;
print 1;
print "a - b -Q";

$ perl5.8.9.exe reallyperlconfusingerror.pl
Bareword found where operator expected at reallyperlconfusingerror.pl 
+line 5, near "print "a - b -Q"
...
syntax error at reallyperlconfusingerror.pl line 5, near "print "a - b
+ -Q"
Can't find string terminator '"' anywhere before EOF at reallyperlconf
+usingerror.pl line 5.

$ perl5.16.1.exe reallyperlconfusingerror.pl
Having no space between pattern and following word is deprecated at re
+allyperlconfusingerror.pl line 5.
Bareword found where operator expected at reallyperlconfusingerror.pl 
+line 5, near "print "a - b -Q"
...
        (Missing semicolon on previous line?)
syntax error at reallyperlconfusingerror.pl line 5, near "print "a - b
+ -Q"
Can't find string terminator '"' anywhere before EOF at reallyperlconf
+usingerror.pl line 5.

$ perl5.16.1.exe -Mdiagnostics reallyperlconfusingerror.pl
Having no space between pattern and following word is deprecated at
        reallyperlconfusingerror.pl line 5 (#1)
...
Uncaught exception from user code:
        syntax error at reallyperlconfusingerror.pl line 5, near "prin
+t "a - b -Q"
        Can't find string terminator '"' anywhere before EOF at really
+perlconfusingerror.pl line 5.