Help for this page
print substr( $s, -4 );;
[19:51:25.70] C:\test>\perl64-16\bin\perl \perl64\bin\p1.pl
 Perl> say $];;
 Perl> ++$n while $s =~ /fr/g; say $n;;
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (534 votes). Check out past polls.