# author: Your name
# created on:
# description: solution for assignment no. 
# read command line option -file
# open your text input file
# read each line inside your file
# and: replace string "NP" by string "nominal phrase"
# or: check for string "ACGT"
# open your text output file
# write your changed or found lines to your output file
# close your text output file
# close your text input file

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

##</code><code>##

$temp_fahrenheit_1 = 32 + $temp_c_1 * 1.8;
$temp_fahrenheit_2 = 32 + $temp_c_2 * 1.8;
...

##</code><code>##

sub c_to_fahrenheit {
    my $temp_in_c = shift @_;
    my $temp_in_f = 32 + $temp_in_c + 1.8;
    return($temp_in_f);
}
$temp_fahrenheit_1 = c_to_fahrenheit($temp_c_1);

##</code><code>##

@temperatures_in_c = (5,10,15,20);
@temp_in_f = map(c_to_fahrenheit($_),@temp_in_c);

##</code><code>##

do something(\@myarray,\%myhash,\$mystring);
sub do_something { 
    my @localarray = @{shift @_};
    my %localhash = %{shift @_};
    my $localstring = ${shift @_};
    ...
}


##</code><code>##

%course = (code => $code; 
    weekday => $day, 
    time => $time, 
    title => $title, 
    location => location);

##</code><code>##

    $date{weekday} = $day;
    $date{time} = $time;
    $course{"date"} = %date;
    ...

##</code><code>##

$testphrase = "The colours of the rainbow are red, yellow, green, blue, indigo, and violet";
($newphrase = $oldphrase) =~s/colour/color/;