#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $string = 'Test';
my @treffer = $string =~ /(T)(e)(s)(t)/;
my @array   = $string =~ /(T)(?:e)(s)(t)/;

print "Treffer: ", Dumper(\@treffer),"\n",
      "Array:   ", Dumper(\@array),"\n";