my $data = SOME STRING;
if ($data =~ SOME EXPRESSION)
{
	print "File name: \"$_\"\n";
}