Here's a short example of how to do what you want.

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

- - arden.