#!/usr/bin/perl -n chomp; if (/\./ && $_ ne ".") { s/\/\./\//g; s/.*\.//; if (!m{/}) { print "$_\n"; } else { print "\n"; } } else { print "\n"; }