Perl | y Operator

The y operator in Perl translates all characters of SearchList into the corresponding characters of ReplacementList.
Here the SearchList is the given input characters which are to be converted into the corresponding characters given in the ReplacementList.

Syntax: y/SearchList/ReplacementList/

Returns: the translated string

Example 1: This example uses y operator for translating from lower case to upper case.

#!/usr/bin/perl

# Initialising some strings
$string1 = 'gfg is a computer science portal';
$string2 = 'geeksforgeeks';

# Calling to y function
$string1 =~ y/a-z/A-Z/;
$string2 =~ y/a-z/A-Z/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

Output:

GFG IS A COMPUTER SCIENCE PORTAL
GEEKSFORGEEKS

Example 2: This example uses y operator for translating from upper case to lower case.

#!/usr/bin/perl

# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';

# Calling to y function
$string1 =~ y/A-Z/a-z/;
$string2 =~ y/A-Z/a-z/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

Output :

gfg is a computer science portal
geeksforgeeks

Note: This y operator does the task of lc() function and uc() function as well as it translates the input characters into numeric form etc.

Example 3: This example uses y operator for translating from upper case to numeric form.

#!/usr/bin/perl

# Initialising some strings
$string1 = 'GFG IS A COMPUTER SCIENCE PORTAL';
$string2 = 'GEEKSFORGEEKS';

# Calling to y function
$string1 =~ y/A-Z/0-9/;
$string2 =~ y/A-Z/0-9/;

# Getting translated strings
print "$string1\n";
print "$string2\n";

Output :

656 89 0 29999949 9284924 999909
6449959964499