$AUTOLOAD  =~ /.*::(get|bundle)(_next)*(_\w+)_files*$/

##</code><code>##

while ($s->get_next_blah_file) {
  $s->delete($s->selected_file);
}

##</code><code>##

my $bundle = $s->bundle_blah_files;
$bundle->delete;