use Modern::Perl; use List::Util qw(first); use LWP::Simple qw(get); say for first {/^2\+2/} split m{\r?\n|\r}, get q{http://gutenberg.net.au/ebooks01/0100021.txt}