while ('test' =~ /./g) {
    print "$&\n";
}