sub In_Common2 
{
     my ($str1, $str2) = @_;
    (my $common = reverse $str2) =~ s/[^$str1]|(.)(?=.*\1)//g;

     return scalar reverse $common;
}