tr /://; print;

##</code><code>##

$_ = 'p:e:r:l:p:e:r:l';

@a[0..3] = split /:/;

print @a;