@p = 
(
    qr/^abc/,
    qr/abc$/,
);

for $f ( @foo )
{
    for $p ( @p )
    {
        do_stuff() if $f =~ $p;
    }
} 

##</code><code>##

while ( $foo =~ /^abc/ && $foo =~ /abc$/ )
{
    do_stuff();
}