Select Code to Download

use warnings;
use strict;
...

my @cmd = ('cat', 'sample.txt');  # just an example
print map { s/^_id://; $_ } grep { /^_id:/ } capturex(@cmd);