#!/usr/bin/perl

print “Simple Best techniques…\n”;

$daystr = “1 2 6 7 11 13 15 16″;
my @numbers = ($daystr =~ /(\d+)/g);
foreach $day (@numbers) {
print $day.”\n”;
}

Advertisements