Help for this page
cat ./FILE.html | perl {...}
#!/usr/bin/perl -w ... while (<>) { print if /$regexp/; }
# ./retest.pl \</\div\>\n\<\/body\> ./FILE.html