print for
    map { substr $_, 30 }
    sort
    map { sprintf "%-30s%s", (split / /, (split /\|/)[1])[1], $_ }
    <DATA>;

__DATA__
123|Pete Smith|4321|321G4
2134|Mike Malarky|93F821
83|Dave Waylaid|8374W

##</code><code>##

2134|Mike Malarky|93F821
123|Pete Smith|4321|321G4
83|Dave Waylaid|8374W