if ($fs =~ /^(?i)\/data\w+$/ || $fs =~ /^(?i)\/tmp\w+$/ ) {

##</code><code>##

#!/usr/bin/env perl
use warnings;
use strict;

while (my $fs = <DATA>) {
    if ($fs =~ /^(?i)\/data\w+$/ || $fs =~ /^(?i)\/tmp\w+$/ ) {
        print "match: $fs";
    }
}

__DATA__
junk
/tmp
/tmpfoo
/data
/data2
/data again
junk2

##</code><code>##

match: /tmpfoo
match: /data2