c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(pp);
 ;;
 for my $s (qq{yz}, qq{yz\n}, qq{\n}) {
   $s =~ m{ (.) $ }xms;
   printf qq{in %s matched %s \n}, pp($s), pp($1);
   }
"
in "yz" matched "z"
in "yz\n" matched "z"
in "\n" matched "\n"