In line 6, I recommend (my $ps = $_) =~ s/(\.[^.]+)?$/.ps/;

This should eliminate the extension requirement.

I also recommend at line 20, using while (condition) { } as it clarifies the intent of the statement (IMO).

All in all, an excellent idea. I'll probably use it sometime.