# untested...
foreach my $filepath (@paths){

   open my $fh,'<', $filepath or die "unable to open $filepath!";
   while (<$fh>){
       if($_ =~ /$usr_supplied_regex/){
           print "$filepath:$.".$_;
       }
   }

}