use strict;
my @lines = <DATA>;
my $line;
foreach $line (@lines)  {
  if($line =~ /(test)/) { 
    print $1,"\n";
    $line =~ s/<p>//gi;
  }
  if($line =~ /meta/) { print "$line" };
}
__END__
test <p> hello meta
fadfdsa <p> meta
fadfasd test
test <P> test meta 
<p> fdafasdg