I'd think of this: ($f)=~/(.)/; /(.)([^$f])/ and print $1,$2;