#!/usr/bin/perl print "\n"; while (<>) { $_ =~ s/(]*>)]*>/\1/g; $_ =~ s/<\/a><\/a>/<\/a>/g; print; }