>>422
my $a1 = "aho";
my $b1 = "baka";
my $str = "ahomanukebaka";

$str =~ s/$a1(.*)$b1/$a1$b1/;

warn $str; # ahobaka
warn $1; # manuke