#!/usr/bin/perl
#
# Perl code for learning purposes. cuts first 2 lines off a file
# Resources: see 'resources'
#
# Cut out niceness in favour of working.
use strict;
use warnings;
# Read a file into a variable (or die with error)
open(my $filehandlein, "<", "linesFile") or die "Can't open linesFile: $!";
# Create a scalar and an array with the value of $filehandlein
my @openread = <$filehandlein>;
close $filehandlein;
# Print array to screen
print "\n";
print @openread[2..$#openread];
print "\n";
my @editread = @openread[2..$#openread];
$editedread[1] =~ s/.*/changed/;
print @editedread;
print "\n";