my $text = "I saw the panda myself,\nbut Amy did not.\nA var a.my";
my $regexp = qr/(a[ .]*my)/i;

$text =~ s/$regexp/'~'.uc $1.'~'/ge;
print "$text\n";