#!/usr/bin/perl -w
use strict;
my$str="Biker\n";
print('Length of Biker: '.length($str)."\n");
$str=~s/.//;
print('Length of Biker: '.length($str)."\n");