String Perl

@a = qw/P, e, r, l/;
print @a;