my $string; $string = <