Select Code to Download

#!/usr/bin/perl
use warnings;
...

(my $regex = $string) =~ s/(.)(?=.)/$1.*/g;
say for grep /$regex/, @array1, @array2;