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

##</code><code>##

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