#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
sub f {
    my $in = shift;    
    my (@tmp) = "list $in" =~ /(?:^list\s+)?(\w+)/g;
    print(Dumper(\@tmp));
}
f("foo");
f("foo,bar");
f("foo,bar,bar2,bar3");

__END__
$VAR1 = [
          'foo'
        ];
$VAR1 = [
          'foo',
          'bar'
        ];
$VAR1 = [
          'foo',
          'bar',
          'bar2',
          'bar3'
        ];