if( $export =~ m/[yY]/ ) { .... }