#!/usr/bin/perl -w
while (<>) {
    while (/\w+/) {
        print "<$&> ";
        $_ = $';
    }
print "\n";
}
Last modified: poniedziałek, 10 sierpnia 2015, 10:49