my %options;
getopts("r:", \%options);
...
$regex = qr($options{r});
foreach (@files){
my $filepath = $_->[0];
if ($filepath =~ $regex){
    push @matched, $filepath;
}
}