Select Code to Download

#!/usr/bin/env perl
use strict;
...

__END__
23451

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