#!/usr/bin/perl -w
use strict;
use autodie;

my $dna;

open FH, '<', 'fluseq.txt';
my @data = <FH>;
close FH;

for (@data)
{
    s/\s+//g;
    s/\d+//;
    s/\/\///;

    if (/ORIGIN(.*)/ms)
    {
        print $1;
    }
}