$ perl -e'
   $_ = "abc";
   if (/\w/g) {
      CORE::say for /(\w)/g;
   }
'
b
c