Help for this page
Select Code to Download
Select
or
download this
my @lines = split /\n/, $str; foreach my $line (@lines) { ... }