Perl program to demonstrate different string operations

Program:

$str1="UBUNTU_";

$str2="WINDOWS";

#String Concatenation

$concate_str=$str1.$str2;

print "\n$concate_str\n";

#String Repetition

$N_str=$str1 x 5;

print "\n$N_str\n";

#Auto incrementation in String

$str2++;

print "After ++ ->> $str2\n";

$str2++;

print "After ++ ->> $str2\n";

Expected O/P:

UBUNTU_WINDOWS

UBUNTU_UBUNTU_UBUNTU_UBUNTU_UBUNTU_

After ++ ->> WINDOWT

After ++ ->> WINDOWU