Select Code to Download

    if($input =~ /^(\([^\)]*\))/)
    {
        my $pattern = $1;
        s/$pattern//;
    }

    if($input =~ s/^(\([^\)]*\))//)
    {
...
    } else {
        # Didn't match ^(...)
    }