Help for this page
if( $export =~ m/y|Y/ ) {....}
if( $export =~ m/y/i ) {....}
if( $export =~ m/[yY]/ ) { .... }
if( $export =~ m/^y/i ) {....}