sub dis { shift =~ /.?.?(.)/; } #### sub dis { shift =~ /.?.?(.)/; $1; }