perl -nle "/^([^.]+\.[A-Z]{3}),([^.]+\.[A-Z]{2}_)$/ and system qq{expand $2 $1}" HPBF3510.inf