my $match = qr/\\well/;
$text =~ s/$match//;