#!/your/perl/here
use strict;
use warnings;
my $last_line;
while (<>)
{
  if ( m/^Action:/ )
  {
    print $last_line;
  }
  $last_line = $_;
}

##</code><code>##

perl find_devices new_elements

##</code><code>##

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