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