#!/usr/bin/env perl
use warnings;
use 5.014;
use lib "/home/kaiyin/bin";
use wrappers;

my $x = "what is this all about";
while ($x =~ /(\w+)/g) {
    say "Matched word: $1, end at position ", pos $x;
}