print '</a>' if -1 == index lc $_, '</a>';