my @file = <filehandle>;
my $line = join "", @file;
my $results = eval ($line);