- or download this
my $line = q{one <two>};
$line =~ /
...
/x;
print $1, $2;
- or download this
one two
- or download this
my $line = q{one <four>};
- or download this
while ($line =~ /pattern/g){
# do something with $1 and $2
}
- or download this
one [link|file.html] two [email|me@home.com] three [not a link]
- or download this
while (
$line =~
...
# more stuff
}
}