use asdf qw( . . . );

##</code><code>##

 
package asdf;
require Exporter;
our @ISA = qw(Exporter);

sub import {

my $class = shift;

my @list = @_ if @_;  # @list contains the splitted string 

##</code><code>##

 
split(' ', q/STRING/);