--- /dev/null
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+$_ = <>;
+
+my ($x, $y) = (0, 0);
+$; = ',';
+my %seen = ("0,0" => 1);
+
+for my $v (split //) {
+ $x++ if $v eq '>';
+ $y++ if $v eq 'v';
+ $x-- if $v eq '<';
+ $y-- if $v eq '^';
+ $seen{$x,$y}++;
+}
+
+say scalar keys %seen;
+
+