Regular Expression Perl

while(){
    print if /10$/;
}
__DATA__
    1.10
    .5
    555.10
    4.01
    .501
    601