$ perl -WE '$string = "12345"; $string =~ s/(.)(?=(.))/$2$1/g; say $string'
213243545