#!/usr/bin/perl

use strict; use warnings; use 5.024;

while (my $id = <DATA>) {
	if ($id =~ /^(\D)?(\d+(\.\d+)?)/ ) { # neues Format, falls Timestamp aus Time::HiRes	
		my ( $flag, $i ) = ($1, $2);
		say "$flag|$i" ;	
	}
}
__DATA__
IDS follow now:

+1123311.11
!1A23311
-1A23311-11
-123311.2211
!123311A
!123311

__END__