Select Code to Download

#!/usr/bin/perl -l
...
my(@a) = split (//, q[a c s f 'pl' j k s], 0);
my(@b)= split(//, q[m e f z  x  s  f 'pl'], 0);
print  LCS( \@a,\@b );