$_= '31,wppra00a0513';
print /.+,/;

##</code><code>##

$_= '31,wppra00a0513';
print /(.+),/;