perl -e '$aline = qq~foo1: fie fo fum~; my ($aid,$rec) = split /:/,$aline; $aid=~s/^[a-z]+//; print qq~$aid...$rec\n~;'                                                                                  
1... fie fo fum