perl -e "$ARGV[0] =~ /(a)(l)(l)/;  print qq($1 $2 $3) " alltogether
#out:a l l

perl -e "@array = $ARGV[0] =~ /(a)(l)(l)/;  print qq(@array) " alltogether
#out:a l l