#!/usr/bin/perl

open(ADVICES, "advices.html");


my @advices=<ADVICES>;

$advices = "@advices";

@advices = split(/..item..item./m, $advices);

my $num=1;
foreach(@advices)
{
    open(ADVICE, ">advices/$num.txt");
    print ADVICE $_;
    close ADVICE;
    $num++;
}