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