if ( $string =~ /[^A-Za-z0-9]/ ) {
      print "On your bike, mate";
  } else {
      ...