#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Useqq = 1;

my @tests = (
    "123456",
    "123456\n",
    "123456\r\n",
);


for my $value ( @tests ) {

    if ( $value =~ m/^\d{6}$/ ) {
        print "yo, das passt: ", Dumper( $value ),"\n";
    }
    else {
        print "passt nicht:", Dumper( $value ), "\n";
    }

}