Perl version:

#!/usr/bin/perl
use strict;
use warnings;

print "Input string: ";
$_ = ;
chomp;

my @data=split(//);
my $count=1;
foreach (@data)
  {
  for (1 .. $count){print $data[$count-1]}
  $count++;
  }
print "\n";