1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu 
 3 1ddd2d4e 2023-09-10 jrmu # Write a program that takes a list of filenames on the command line and
 4 1ddd2d4e 2023-09-10 jrmu # uses grep to select the ones whose size is less than 1,000 bytes. Use map
 5 1ddd2d4e 2023-09-10 jrmu # to transform the strings in this list, putting four space characters in
 6 1ddd2d4e 2023-09-10 jrmu # front of each and a newline character after. Pring the resulting list.
 7 1ddd2d4e 2023-09-10 jrmu 
 8 1ddd2d4e 2023-09-10 jrmu use v5.24;
 9 1ddd2d4e 2023-09-10 jrmu use warnings;
10 1ddd2d4e 2023-09-10 jrmu use strict;
11 1ddd2d4e 2023-09-10 jrmu use utf8;
12 1ddd2d4e 2023-09-10 jrmu 
13 1ddd2d4e 2023-09-10 jrmu print map { "    ".$_."\n" } grep { (-s $_ < 1000) } @ARGV;