use strict;
use warnings;
my $diry = '/startdirectory';
my $newname;
   	 
$name = $File::Find::name;
open ( DATA, $name ) || warn "Can\'t open File $name: $!\n";
		
while($hit = <DATA>)
{
      if ($hit =~ /regexpressionhere/i)
      {
         ($newname) = $name =~ /$dir(\s+*)/i;
	 print "$1\n";
      }
}
close DATA;