#replace
qw($a);
#with
my @words=split(/\s+/,$a);