Select Code to Download

Select or download this

$text = q(UFOFH 33603 01231 /0000 0024/ 1024/ 2025/ 3027/ 4030/ 5025/ 
+6028/ 7060/ 8081/ 9098/ 0110/ 1107/ 2106/ 3102/ 4080/ 5065/ 6057/) ;

$text =~ s/^UFOFH // and print split /\s+/,$text ;

Select or download this

$text = q(UFOFH 33603 01231 /0000 0024/ 1024/ 2025/ 3027/ 4030/ 5025/ 
+6028/ 7060/ 8081/ 9098/ 0110/ 1107/ 2106/ 3102/ 4080/ 5065/ 6057/) ;

$text =~ m|^UFOFH | and print "GOOOOHH!\n"
  if $text =~ m|([\d/]{5}\s?){4,27}|ig ;