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

my $str ='3023NMANS.20111011.2';

my ($front,$end) = $str =~ /^(\d+)NMANS([.\d]+)/;

print "$front  $end\n";  #3023  .20111011.2