The R Project SVN R

while(<>) {
    s/([0-9]+)\.([0-9]+)\.([0-9]+)\s*//;
    my $major = $1;
    my $minor = $2;
    my $patch = $3;
    $patch = $patch."pat" if /Patched/;
    $patch = $patch."dev" if /unstable/;
    $patch = $patch."beta" if /Beta/;
    $minor = "0".$minor if $minor < 10;
    $ans = "rw$major$minor$patch\n";
}
print $ans;