Help for this page

Select Code to Download

Select or download this

my $text = 'f000124_90181234_dp';
my $sites = [ '018', '324' ];

print "$text To be removed"
        unless $text=~/_9(...)/,{map{$_,1}@$sites}->{$1};

Select or download this

use List::Util qw(none);
print "$text To be removed"
        if $text=~/_9(...)/,none {$1 eq $_} @$sites;