#!/usr/bin/perl sub crack { $a =~ m/date="(.*)"/; $as = $1; $b =~ m/date="(.*)"/; $bs = $1; return $bs <=> $as; } $/=""; while(<>) { push(@list, $_) if /date=/; } print qq[