in reply to renaming files question

perl -e 'map{ /(1bn.)\..+\.(cnt)/ and rename $_, "$1.$2" }glob "1bn*"'


In Section Seekers of Perl Wisdom