Delimeters/Regex:
$ perl -ne '($name,$pass,$uid,$gid,$therest)=split(/:/);print "$name $gid\n"' /etc/passwd root 0 daemon 1 bin 2 ...
$ printf "1234XY\n5678AB" | perl -ne '($f1,$f2)=unpack("a4 a2");print "$f2 $f1\n"' XY 1234 AB 5678
perl -F':' -anE 'say $F[0]'
Delimeters/Regex:
Fixed width: I believe Rexx's parse is fancier still, but this is reasonably close.