#!/bin/perl

$somestring = " Hello world! This is some string!";
$_ = $somestring;

$changes = s/world/WORLD/g;

print $_;
print $changes;

