$ perl -e 'my $str = ""; $str =~ s/]*>//; print "$str\n"' $