Searched refs:cattail (Results 1 – 1 of 1) sorted by relevance
4930 my($cattail);4932 sub cattail { subroutine4935 if(not $cattail) {4936 $cattail = q{4991 $cattail =~ s/#.*//mg;4992 $cattail =~ s/\s+/ /g;4994 return $cattail;5069 my $cattail = cattail();5075 my $rpid = open(my $fdr, "-|", "perl", "-e", $cattail,