Select Code to Download

my $s = '122     Genesis Chamber             Mark Tedin               
+ A     U';

print join '|', $s =~ m[^(\S+)\s+\b(.*)\b\s{2,}\b(.*)\b\s{2,}(\S)\s+(\
+S)$];

122|Genesis Chamber|Mark Tedin|A|U

m[^         # With the $, match the whole line
   (\S+)    # The first field contains no spaces
...
   \s+      # 1 or more spaces
   (\S)     # 5th Single char.
$]x