while($hit = <DATA>) {
	if ($hit =~ /regexpressionhere/i) {
		$hit =~ s|^/startdirectory||;
		print "$hit\n";
	}
}