push @results, grep {
    grep { $1 eq $_ } @two if ( $_ =~ /\(.\)(.+)\(.\)/ )
} @one;