Select Code to Download

while (<FILEHANDLE>) {
    tr/_/+/ if m{ \A ~ }xms;
    do_something_with_fixed_up_line($_);
    }