#!/usr/local/bin/perl

my $string = 'Hello, World ,,, my World 1984';

$string =~ s/\b\w//g;    
print $string;