use strict; 
use warnings;
foreach my $element (glob "dir1/dir2/*/dir3/filename"){ 
	print "$element:  "; 
	$element =~ m!dir1/dir2/(.*)/dir3/filename!;
	print "$1\n";
}