#!/bin/perl
use strict;
my $s = "Hello world!";
print substr($s,1,length($s));