Perl - [ Captura Regex ]

#!/usr/bin/perl

use strict;
use warnings;

my $capitura = 'From: gnat@perl.com To: camelo@oreilly.com Date: Mon 17 Jul 200 09:00:00 -100 Subject: Nada';
$capitura =~ /(From:(.*)To:(.*)\s{1}Date:(.*)\s{1}Subject:(.*))/;
print "$1\n$2\n$3\n$4\n$5";

result


$perl  commandLine.pl
$1  # From: gnat@perl.com To: camelo@oreilly.com Date: Mon 17 Jul 200 09:00:00 -100 Subject: Nada
$2  # gnat@perl.com
$3  # camelo@oreilly.com
$4  # Mon 17 Jul 200 09:00:00 -100
$5  # Nada