Help for this page
#!/usr/bin/env perl use strict; ... __END__ 23451
$ perl -WE '$string = "12345"; $string =~ s/(.)(?=(.))/$2$1/g; say $st +ring' 213243545