f6_regex3.pl

#!/usr/bin/perl -w
use strict;

my $s = "etesto";

$s =~ m/(t)(e)/;

print ($2 . "\n");

exit;