Select Code to Download

#!/usr/bin/perl
use strict;
...
     'Foo bar 123 ABCD6') {
  say "'$_' is " . (validate_serial_number($_) ? "valid" : "invalid");
}

'Foo abr 123 ABCD6' is invalid
'Foo bar 123 ABCD6' is valid