@rem = '--*-Perl-*--
@echo off
perl -x -S "%~dpnx0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl
#line 8
use strict;
use warnings;
use Win32::Clipboard;
my $CLIP = Win32::Clipboard();
my ($output, $lastline) = ("", "(");
foreach( split m[\x0d\x0a?|\x0a\x0d?], $CLIP->GetText ) {
   (my $quoted = $_) =~ s/'/''/g;
   $quoted = qq['$quoted', ];
   if( $lastline ne "" and length($lastline) + length($quoted) > 72 ) {
       chop $lastline; # remove trailing space
       $output .= $lastline . "\n";
       $lastline = "";
   }
   $lastline .= $quoted;
}
$lastline =~ s|, \z|)|; # convert last ", " to a ")"
$output .= $lastline;
$output =~ s|\n|\x0d\x0a|g; # convert perlish \n to windows CRLF.
print $output;
$CLIP->Set($output);
__END__
:endofperl