Select Code to Download

my @s = qw/ 1234579 234789 4578 /;

...
$common =~ s/[^$_]//g for @s;

print $common; # 47