#!/usr/bin/perl
use warnings;
use strict;

my @eachlinecmd = split ('/\n/,', `ping 127.0.0.1`);
my @eachwordcmd = split ('/\w/,', @eachlinecmd);
print "@eachlinecmd\n";
print "@eachwordcmd\n";
print "$eachlinecmd[4]\n";
print "$eachwordcmd[3]\n";