if ( $key =~ m/^$error.*/ ) {