Select Code to Download

my $myvar;
{
...
    alert_user();
  } 
}

( $myvar = <FILEPTR> )  =~ s/\n+//g;

local $/ = undef;

s/\n+(?!\z)//g