#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', $0;
chomp(my @lines = <$fh>);

print "[$_]\n" for @lines;