Select Code to Download

$ perl -E 'my $var = "123\n"; say $var;'
123
...
$ perl -E 'my $var = "123\n"; say "|$var|";'
|123
|

#!/usr/bin/env perl

...
        return;
    }
}

f1       0 20221013 ./d1/d3_3/ 10977524094816598 [1665639046]
f1       0 20221013 ./d1/d1_1/ 10133099164684663 [1665639074]
...
f2_3_1   0 20221013 ./d2/d2_3/ 10414574141424462 [1665639207]
f2_2_2   0 20221013 ./d2/d2_2/  9851624187973976 [1665639223]
f2_2_1   0 20221013 ./d2/d2_2/  8725724281131669 [1665639238]

use autodie;
...
...
while (<$pipe>) {
    ...
}