knoppix@Microknoppix:~$ perl -E '
> $str = q{mystring123456};
> substr $str, index( $str, q{1} ), 1, q{};
> say $str;'
mystring23456
knoppix@Microknoppix:~$