my $line = <$filehandle>;
chomp $line;

##</code><code>##

my $line;
open my $linefh, \$line;
until ($char eq "\n")
{
  sysread($filehandle, $char, 1);
  print $linefh $char;
}
close $linefh;