Regular Expression Perl

while(){
    print if /6\d\d/
}
__DATA__
    101
    201
    301
    401
    501
    601