open X,"<$file";
@rows = <X>;
close X;

for($i=0;$i<$#rows;$i++)
{
        if($rows[$i] =~ /something/) {
                print $rows[$i-5];
        }
}