use List::MoreUtils qw/before after/;

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