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