Perl Beautifier

Paste compact Perl source and format it with proper indentation and consistent brace placement.

Last updated: May 29, 2026

Indent:Preserve blank linesFinal newline

Messy or Compact Perl Code

12 lines, 483 B

Beautified Perl Code

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

package Animal;

sub new {
  my($class,%args)=@_;
  my $self={
    name=>$args {
      name
    },
    sound=>$args {
      sound
    }
    ||'...'
  };
  return bless $self,$class;
}

sub speak {
  my $self=shift;
  printf "%s says %s
",$self-> {
    name
  },
  $self-> {
    sound
  };
}

sub name {
  my $self=shift;
  return $self-> {
    name
  };
}

package Dog;
our @ISA=('Animal');

sub new {
  my($class,%args)=@_;
  $args {
    sound
  }
  ='Woof';
  return $class->SUPER::new(%args);
}

sub fetch {
  my $self=shift;
  printf "%s fetches the ball!
",$self-> {
    name
  };
}

1;

59 lines, 634 B

Input: 12 linesOutput: 59 linesSize: 634 B

Client-Side Processing

Input Data Stays on Device

Instant Local Execution

Find this tool useful? Support the project to keep it free!

Buy me a coffee

What is Perl Beautifier?

Perl Beautifier reformats Perl source code — including packages, subroutines, conditionals, loops, and hash/array operations — so it is easy to read. Perl uses C-style curly braces and semicolons to delimit blocks, so the formatter applies the same brace-based indentation engine used for C, Java, and JavaScript. It handles single-line and block-comment styles, preserves string literals, and keeps $scalar, @array, and %hash sigils inline.

How to Use Perl Beautifier

Paste Perl source code.

Choose indentation style.

Click Format.

Review the beautified output.

Copy or download the .pl file.

Common Use Cases

Expanding compact Perl scripts inherited from legacy codebases.
Normalizing indentation when merging Perl snippets from different authors.
Formatting Perl examples before adding to documentation or wikis.
Tidying minified Perl one-liners expanded to multi-line form.

Example Input and Output

A compact Perl subroutine is expanded with proper indentation.

Compact Perl

sub greet{my($name)=@_;if($name){print "Hello, $name\n";}else{print "Hello!\n";}}

Beautified Perl

sub greet {
  my ($name) = @_;
  if ($name) {
    print "Hello, $name\n";
  } else {
    print "Hello!\n";
  }
}

Privacy

Perl code is formatted locally in the browser and is not uploaded.

Frequently Asked Questions

Does this validate Perl syntax?

No. It formats text for readability only. Use perl -c to check for syntax errors.

Will it handle q{} and qq{} quoting operators?

q{} and qq{} quote operators use curly braces which the formatter treats as block delimiters. For complex quoting patterns, review the output carefully.

Does it handle regex patterns?

Basic regex patterns like /pattern/ are preserved as string-like tokens. Complex patterns with embedded braces may need manual review.

Is my code uploaded anywhere?

No. Formatting runs entirely in your browser.