#!/usr/bin/perl -w use strict; my $nr = 27; local $/ = undef; my $data = ; my @match = $data =~ m/(?