use warnings;
use strict;
use Win32::Clipboard;

my $SomeVar=<<TOHERE;
line
some other line
some distinct yet similar line
the daughter of line 0 and line 1
the line she loves even while being with line 2
TOHERE

$SomeVar =~ s/\n/\r\n/g;

Win32::Clipboard::Set($SomeVar);