c:\@Work\Perl\monks>perl -wMstrict -le
"print qq{'$1'} if 'ab-cd' =~ m{ (?! \A)    (\w) }xms;
 print qq{'$1'} if 'ab-cd' =~ m{         \b (\w) }xms;
 print qq{'$1'} if 'ab-cd' =~ m{ (?! \A) \b (\w) }xms;
 print qq{'$1'} if 'ab-cd' =~ m{ \b (?! \A) (\w) }xms;
"
'b'
'a'
'c'
'c'