if( $export =~ m/^y/i ) {....}