ch-1.pl « perl « mohammad-anwar « challenge-108 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-108/mohammad-anwar/perl/ch-1.pl

blob: b00ada540b1aaf9d69de065643288f3cd7977d09 (plain)

#!/usr/bin/perl

use strict;
use warnings;

my $n = 1;
\$n =~ /SCALAR\((.*)\)/ and print "$1\n";