Select Code to Download

if( $search !~ /\A ([A-Za-z0-9 ]+) \z/x ) {
    print "Error, can't run search\n";
}