for ($val)
{
    /^1$/       && do { do_something };
    /^abc$/     && do { do_something_else };
    /^\d{2,4}$/ && do { do_something_further };
}