my $var = $ARGV[0]; ## $var is tainted and has value 'aabb';
{
    use re 'taint';
    $var =~ s/(aa)(bb)/$1/;
}