Regular Expression Perl

while(){
   print if /5{1,}/;
}
__DATA__
    Blenheim 1.10
    Ben .5
    Bill 5.100
    Lelly 4.01