use strict; use warnings; my $data = do{local $/; }; my ($header, $class, $footer) = $data =~ m/^(.*<\/header>)(.*)(