#!/usr/local/bin/perl
use 5.010;
$_ = 'RDW';
s/(.)/my $c = $1; ++$c/ge;
say;