$ perl 
$_='hello 
world'; 
\s+\s++s+tr/JAPH/0123/; 
print $_; 
__END__ 
helloworld