#!/usr/bin/perl -w

# Reading protein sequence data from a file, take 3
# The filename of the file containing the protein sequence data
$filename = 'svensk.txt';
# First we have to "open" the file
open(FILE, $filename);
# Read the protein sequence data from the file, and storeit
# into the array variable @protein
@WORDS = <FILE>;
# Print the protein onto the screen
##print scalar (@protein);

foreach $str (@WORDS)
{

$str2 = reverse $str;
print $str2;
}



close PROTEINFILE;

exit;