Help for this page
Select Code to Download
Select
or
download this
substr( $string, substr($string,0,1) eq 'Y' ? 2 : 1) =~ tr/X//d;
Select
or
download this
substr( $_, /^Y/ ? 2 : 1) =~ tr/X//d;