$code = <USRHASH>;
  
  # Blindly untaint
  ( $code ) = ( $code =~ m/(.*)/s );
  
  # Safe eval
  require Safe;
  $USRLST1 = Safe->new->reval( $code );