if($linefraq eq $user)
{
  return;
  #or otherwise abort from sub
}
else
{
  #do whatever to the file
}