#!/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";