use warnings;
use strict;
use Data::Dump;

for my $str ( "foo", "foo\n", "foo\r\n" ) {
        dd $str, scalar $str=~/o\s*$/;
}

__END__

("foo", 1)
("foo\n", 1)
("foo\r\n", 1)