Select Code to Download

#!/usr/bin/perl -w

...
    $outside = 1, next if (/^data:/);
    print unless $outside || /^\s*$/;
}