my $myvar;
{
  local $/ = undef;
  if ( ( $myvar = <FILEPTR> )  =~ s/\n+//g ) {
    alert_user();
  } 
}