Help for this page
>perl -wMstrict -le "$ARGV[$#ARGV] =~ m{ (\S) \s* \z }xms; ... "Prompt: " ----- output ----- last non-ws char is ':' at index 6