$ perl -wE 'say "a\n" =~ /a$/'
1