Select Code to Download

#!/usr/bin/perl -w

...
my @tokens = split /\s+|(?<=\w)(?=(?:;|:=))/, $str;

print join "\n", @tokens;

my @tokens = split /
                    \s+      # whitespace
...
                     )
                    )
                   /x, $str;