use strict;
use warnings;

{
my $str = "abcd\r\n";
$str =~ s/\r|\n//g;
print "[$str]";
}

{
my $str = "abcd\n";
$str =~ s/\r|\n//g;
print "[$str]";
}

{
my $str = "abcd\r";
$str =~ s/\r|\n//g;
print "[$str]";
}

open Eclipse press Control-Shift-L.

Alt-left arrow: Go back in navigation history.
Alt-right arrow: Go forward.

SELECT OrderId,DATE_SUB(OrderDate,INTERVAL 2 DAY) AS OrderPayDate
FROM Orders

In module bait we have

our %IMAGEPADV = (
'SxRT-5.1' => [ qw(sol_sparc sol_x64) ],
'LxRT-5.1' => [qw(rhel5_x86_64 sles10_x86_64 sles11_x86_64)],
...
);

In my own module use this to access %IMAGEPADV

%bait::IMAGEPADV