#!/usr/bin/perl

use strict;
use warnings;

my $line = "Hi\n";
print length($line) . "\n";
$line =~ s/Hi\s*//;
print length($line) . "\n";

##</code><code>##

3
0