my $string = 'abcde';
my @captures = $string =~ m/.(.)(.)(.)./;
print "$_\n" for @captures;
__END__
b
c
d