$ perl -le 'print for map { s/\.(\d+)$/($1)/r } qw/cat.1 ld.so.conf.5 /' cat(1) ld.so.conf(5)