Commit Diff
--- mailread.pl +++ mailread.pl @@ -11,10 +11,13 @@ run3(['lynx', '-dump', '-force_html', '-stdin'], \$bod open(my $fh, '>', "$ENV{HOME}/.maillinks"); my $i = 0; $body =~ s{(https?://[^\s<>"]+)}{ - if (length($1) > 80) { + if (length($1) > 80) + { print $fh "$1\n"; "[Link #" . ++$i . "]"; - } else { + } + else + { $1; } }gex;
