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