Select Code to Download

#!/your/perl/here
use strict;
...
  }
  $last_line = $_;
}

perl find_devices new_elements

perl -ne 'print $x if /^Action:/; $x=$_;' new_elements