Argument "╛¡¡╛ª╫╧ç╬₧M-^]╩╔Ö╟╓" isn't numeric in numeric ne (!=) at checkme.pl li
ne 29, <INPUT> line 2.

##</code><code>##

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

my $ex_line = q(perl -ne "if (/(\d{6})_/g){ chomp;print qq($1,),(split/;/,$_)[-1],qq(\n)};" input.dat);
my $stuff = `$ex_line`;
 my %hash;
for (split /\n/, $stuff) {
  my @arr = split/,/,$_;
  push @{$hash{$arr[0]}} , $arr[1];
}

foreach (keys %hash) {
 print "$_\t" . join / /, @{$hash{$_}} , qq(\n);
}

1;


##</code><code>##

>probe:ATH1-121501:244901_at:594:703;Interrogation_Position=56;Antisense;TTGCTGCTATTCTATCTATTTGTGC
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTTCCGTTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTTCCGTTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTrCCGTTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTfTCCGTTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTnCCGTTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTTCCGuTTCTTCGGATGAT
	Times 11
	>probe:ATH1121501:244902_at:522:511;Interrogation_Position=153;Antisense;GGTATTTTiCGTTTCTTCGGATGAT
	Times 11

##</code><code>##


244901  TTGCTGCTATTCTATCTATTTGTGC
244902  GGTATTTTCCGTTTCTTCGGATGATGGTATTTTCCGTTTCTTCGGATGATGGTATTTrCCGTTTCTTCGGAT
GATGGTATTfTCCGTTTCTTCGGATGATGGTATTTnCCGTTTCTTCGGATGATGGTATTTTCCGuTTCTTCGGATGATGG
TATTTTiCGTTTCTTCGGATGAT