#!/usr/bin/perl -wT
use strict;

print "$_ " for (qw ( #FF0000 #00FF00 #0000FF ));
print "\n";
print "$_ " for (split(' ',q/#FF0000 #00FF00 #0000FF/));
print "\n";

=output
Possible attempt to put comments in qw() list at ./qw.pl line 4.
#FF0000 #00FF00 #0000FF 
#FF0000 #00FF00 #0000FF