Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 14 lines (11 sloc) 231 Bytes
#!/usr/bin/perl
use strict;
use warnings;
#use Data::Dumper;
while ( my $line = <> ) {
#chomp( $line );
#print Dumper( $line );
#print "---$line---\n";
next if $line !~ m/ \* \s* \'* \s* \[ /x;
print $line;
}