in reply to I wanna customize qw()
split(' ', q/STRING/); [download]
my @words = split /,/, q/foo,bar,baz/; [download]