Select Code to Download

if( $export =~ m/y|Y/ ) {....}

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

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

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