my $line = <DATA>;
foreach ($line =~ /regex/){
Do stuff with $line;
}