#!/usr/bin/perl -w

sub str_replace {
my ($from, $to, $string, $global) = @_;

my $l = length($from);
my $p = 0 ; # current position

while ( ($p = index($string, $from, $p)) >= 0 ) {
substr($string, $p, $l) = $to ;
$global and last ;
}
return $string ;
}



print "Pozdravljeni, perl deluje\n";

$str_regreplace = "Hello World";
$string = "Hello World";
print $string . "\n\n";
# NACIN 1 zamenja Hello z Goodby
$str_regreplace =~ s/Hello/Goodbye/; #Prints 'Goodbye World'
print $str_regreplace . "\n";

# NACIN 2 zamenja Hello z Goodby
print str_replace('Hello','Goodbye',$string);  #Prints 'Goodbye World'
print  "\n";


$besedilo1="Vlaga v % - psihrometer!";
$besedilo2=str_replace('%','proc.',$besedilo1); #zamenja % z proc.

print "$besedilo1 ------  $besedilo2\n";