...and that's why we give our variables meaningful names, instead of single character names like $s

perl easy_fix.pl
#!/usr/bin/perl --
use strict;
next unless meaningful_name->{ID} =~ /\d\d+/;
print 1;
print "a - b -Q";
[download]

Output:

Can't use bareword ("meaningful_name") as a HASH ref while "strict refs" in use at easy_fix.pl line 3.

(Perl v5.18.2)