Select Code to Download

use List::MoreUtils qw/before after/;

my $string = 'mystring123456';
$string = join '', (before {$_ eq 1} split //, $string), after {$_ eq 
+1} split //, $string;

my $string = 'mystring123456';
$string = join '',  split /1/, $string, 2;