unless( $data =~ /\L$elem/ ) {
  ...