Help for this page
@p = ( ... do_stuff() if $f =~ $p; } }
while ( $foo =~ /^abc/ && $foo =~ /abc$/ ) { do_stuff(); }