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