Select Code to Download

my ($body) = $line =~ /^body: \n (.*) \n attachment/xsi;

# this is from perlop
while (<>) {
...
        # ...
    }
}