my $line = ( split "\n", $_ )[$wanted_line];