#! perl -slw use strict; my $data = <