my $line = $_;

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