This command will list all the files a folder without their extensions. Comes handy when doing shell scripting
perl -e 'while(<*.*>){s/\..{3}//i;print "File \"_\"\n";}print "\n";'
Byte sized tech know-how.