Miscellany

#!/usr/bin/perl -w
$list = `find /dev`;

@devices = split("\n", $list);

foreach $device (sort @devices) {
        if( -f "$device" ) {
                print "$device is a regular file\n";
        }
}