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