my $pattern = q/(...)(...)/;
my $replace = q/$2-$1/;
s/$pattern/$replace/g;