Perl script that checks 'string rotation'