Convert JSdoc comments from coffeescript to javascript

coffeetojs.pl

#!/usr/bin/perl
use strict;
use warnings;

my $file = shift @ARGV;
# open (read) file from command line argument
open(my $jsfile, '<', $file) or die "Can't read file '$file' [$!]\n";
# undef the line separator ($/) for this script, to grab the whole file
local $/;
# read file
my $js = <$jsfile>;
close $jsfile;

sub tojsdoc {
    my($doc) = @_;
    $doc =~ s!^( *)// #!$1/**!;
    $doc =~ s!( *)// #$!$1 */!;
    $doc =~ s!^( *)//( #)?! $2 ||'' eq '#' ? "$1/*" : "$1 *" !gme;
    $doc
}

# process jsdoc comments
$js =~ s!(// #\R *// (.+?\n)+( *)// #\R)!tojsdoc($1)!gme;
$js =~ s!// # *(.*)$!// $1!gm;


# open (write) file from command line argument
open(my $fh, '>', $file) or die "Can't write to file '$file' [$!]\n";
# print to file
print $fh $js;
close $fh;