Select Code to Download

use strict;
use warnings;
...
    $re =~ s/_/.+/;
    /\b$re\b/ and print "$stem: $_\n" for @array2;
}

fil_: file
fil_: fils
fil_: filled
t_xt: text
_erl: perl

use strict;
use warnings;
...
    $re =~ s/_/./;
    print "$stem: $1\n" while $words =~ /\b($re)\b/g;
}

fil_: file
fil_: fils
t_xt: text
_erl: perl