sub common{
    my @x = split( "", shift());
    my $result = '';
    my $x = shift @x;
    for my $y ( split( "", shift()) ) {
        ( $x eq $y ) or last;
        $result .= $y;
        $x = shift @x or last;    
    }
    return $result;
}
[download]