hidra/filter/brackets.pm

#!/usr/bin/perl -w

sub brackets {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/<|>//gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	dpavlin	717	#!/usr/bin/perl -w
2
3			sub brackets {
4			my @out;
5			foreach my $v1 (@_) {
6			$v1 =~ s/<\|>//gi;
7			push @out,$v1; # save modified version
8			}
9			return @out;
10			}
11
12			1;