UNIX for Dummies Questions & Answers

#!/usr/bin/perl
$line[1] = "abc dee eeee ggg";
$line[2] = "sd dsd sdsd sdsd sdsd";
$line[3] = "sdsds sds sdd sdsd sdsd sdsd sdsd";

for($i = 1; $i < 4 ; $i++){
  print $line[$i] =~ m/(\w+)$/;
  print "\n";
}

#!/usr/bin/perl
$line[1] = "abc dee eeee ggg";
$line[2] = "sd dsd sdsd sdsd sdsd";
$line[3] = "sdsds sds sdd sdsd sdsd sdsd sdsd";

for($i = 1; $i < 4 ; $i++){
  print $line[$i] =~ m/(\w+)$/;
  print "\n";
  $line[$i] = $1;
}

print $line[1];print "\n";
print $line[2];print "\n";
print $line[3];