use strict; use warnings; my ($s, $m, $n) = split / /, <>; my @str = split //, $s; if($m < $n) { splice(@str, $m, 1); splice(@str, $n - 1, 1); } elsif($n < $m) { splice(@str, $n, 1); splice(@str, $m - 1, 1); } else { splice(@str, $m, 1) } print @str; print "\n"; exit;