my $line = $_;

if($line =~ s/^.+\/\.(.*)$/$1/)
 { print ". extension ".$line."\n"; }
elsif ( $line =~ s/^.+\.(.*)$/$1/)
 { print "Extension ".$line."\n"; }