Comment by EvilTerran

> there must be a Perl golfer somewhere around here who does …

Hello!

    perl -MFile::Find -e 'find sub{if(-f&&/^whatever/){say$File::Find::name;unlink}},"."'

You might even be able to do 'find{...}"."' (no "sub" or ","), but I don't have perl on my phone to test that ;)