Shell Programming and Scripting

#!/usr/bin/env perl

# @(#) p1	Demonstrate feature (minimal).

use strict;
use warnings;
my ( $s1, $s2, $original );

print " Hello, world from perl minimal.\n";

$original = "My\nreal\nname\nis\nnot\nDeadman";
$s1       = $original;
print "[" . trim1($s1) . "]\n";

$s2 = $original;
print "[" . trim2($s2) . "]\n";

sub trim1 {
  my $string = shift;

  # $string =~ s/.*real\(.*\)not.*/\1/g;
  $string =~ s/.*real(.*)not.*/$1/g;
  return $string;
}

sub trim2 {
  my $string = shift;

  # $string =~ s/.*real\(.*\)not.*/\1/sg;
  $string =~ s/.*real(.*)not.*/$1/sg;
  return $string;
}

# print "[".trim("My\nreal\nname\nis\nnot\nDeadman")."]\n";

exit(0);

% ./p1
 Hello, world from perl minimal.
[My
real
name
is
not
Deadman]
[
name
is
]