my $line = ; print "$line \n";