$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

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