#!/usr/bin/perl

open (FH,"<test.txt") or die "can't open:\t$!\n";

while ($_=<FH>){
  $_ =~ m/(.*)/g;
}
print "$1\n";