c:\@Work\Perl\monks>perl -wMstrict -le
"my @files = qw(blah.config boo.config big.config);
 print qq{@files};
 ;;
 s{ \A [^.]* }{}xms for @files;
 print qq{@files};
"
blah.config boo.config big.config
.config .config .config