Question

#! /usr/bin/perl
use warnings;
print "Please enter the number";
chomp($inNum =<>);
if($inNum =~ /^[0]+/)
{

 print "The length is ",length($inNum),"\n";
 print  " Trailing Zero's  present","\n";
 $inNum =~ s/^[0]+/  /; 
 print  "The new output is" , $inNum ,"\n"; 
 print "The new length is ",length($inNum),"\n";

 }
 else
 {
  print "The input format vaild";
 }

output

Please enter the number :000010

The length is : 6

Trailing Zero’s present

The new output is 10

The new length is :4

Issue is with the new length value which should be (2) but it is displaying (4)
How to solve this issue ?

Answer 1

It looks like you’re replacing the four 0s with 2 space characters. Try this.

$inNum =~ s/^[0]+//;