#!/usr/bin/perl -w
use strict;
my @patterns = (qr/^foo/, qr/^qux/);
my @strings  = ('foo bar', 'bar bar', 'qux bar');
my @stuff;
foreach my $string (@strings){
    if(@stuff = dice_it($string)){
        print "Processing: $string\n";
        process_stuff(@stuff);
    }
}

sub dice_it {
    my $string = shift;
    foreach my $pat (@patterns) {
        return split //, $string if $string =~ /$pat/;
    }
    return undef;
}

sub process_stuff {
    foreach (@_) {
        print "<$_>";
    }
    print "\n";
}