Here is the working code:

#!/usr/bin/perl -w
use strict;

my (@output, $dir);

print "What dir? ";
chomp($dir = <STDIN>);
@output = `du -h $dir`;

foreach (@output) {
    while (/[0-9][0-9].*?M\s/) {
    print;
    last;
    }
}
[download]

Depending on what dir you specify it tells you any sub-directories that have greater than 10Mb worth of files in them. eg checking the amount of dirs in /home/:

64M     /home/djw
36M     /home/user
19M     /home/user2

I know that there are many other ways to get this, but it went along with what I was trying to learn.

Thanks,
djw