Find data between html tags
#!/usr/local/bin/perl # multiliner.pl use strict; my $filename = shift; open (FILE, "<", $filename) or die "Failed to read file $filename : $! \n"; my $whole_file; { local $/; $whole_file = <FILE>; } close(FILE); while ($whole_file =~ m#\<ul id="poweredby"\>(.*?)\<\/ul\>#gs) { print $1 . "\n"; }
To execute,
perl multiliner.pl datafile.txt