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


open(my $reg_out, ">C:/Documents and Settings/mydir/Desktop/RegularOligos.txt");
open(my $irreg_out, ">C:/Documents and Settings/mydir/Desktop/IrregularOligos.txt");
open(my $out, ">C:/Documents and Settings/mydir/Desktop/mfrp.txt");
my $first_line = <$in>;
chomp $first_line;

while(<DATA>){
	chomp;
	my @fields = split /\t/;
	my $maid = $fields[0];
	my $forward = $fields[1];
	my $reverse = $fields[2];
	my $probe = $fields[3];
	if ($probe =~ /^\d{5}TU|TD$/){
		print $reg_out "$maid\t$forward\t$reverse\t$probe\n";
	}
	else{
		print $irreg_out "$maid\t$forward\t$reverse\t$probe\n";
	}
}
#close $in;
close $irreg_out;
close $reg_out;

__DATA__
10002TU	AGACATTACCTGTGAGACACCTTTC	GCCTCCACCTCAGAGTCAG	TCCATGGGAAGGATCTCCGTGAAATCA
10002TU-2	GCTCCAGCTAGAAGAGAATCC	CCCACCAGGGCTGTGTAAG	CCTGTGAGATAGTACAGCTGAAGAGTTGGC
10002TD	TGTGTTGATTCTCAGCCTCTTG	GACGGAGCACATAGGCAAAG	TCTGTTCTTCTCAGCTGTCTTTGTTGCTGC
10003TU	CAGCAAGCCCTGAGGTGTG	CAGTGAACTGAGAAAGACGAGAGG TGCAAGTCCAGATGGAGGCCACC
10174TU-2	ACCTGAACAGCCTGACATGAAC	TGGGATGGAGGGCAAAGTC	CCACCTAGTATGACCCAGCACACCTCC