http://www.perlmonks.org?node_id=178302


in reply to Re: Re: search =~ for /'s
in thread search =~ for /'s

see perlman:perlfunc 
# 1st argument given: string to process
# 2nd argument given: offset
# so here it means regardless of the true length the 
# last character in the string
substr ($new, -1);

[download]

Have a nice day
All decision is left to your taste

In Section Seekers of Perl Wisdom