52 chars:

sub luhn { 
$_=reverse@_;s/(.)(.)/$1.$2*2/ge;s/\B/+/g;eval=~/0$/
}
[download]

  p